%{
#include "correlationtests.h"
%}
// Tested
%rename(pearsoncorrelationsignificance) wrap_pearsoncorrelationsignificance;
%inline %{
VALUE pearsoncorrelationsignificance(double r,
     int n) {
         VALUE ary;
         double bt,lt,rt;
         pearsoncorrelationsignificance(r, n, bt, lt, rt);
         ary=rb_ary_new();
         rb_ary_push(ary, rb_float_new(bt));
         rb_ary_push(ary, rb_float_new(lt));
         rb_ary_push(ary, rb_float_new(rt));
         return ary;
     }
%}

// Not tested

%rename(spearmanrankcorrelationsignificance) wrap_spearmanrankcorrelationsignificance;
%inline %{
VALUE spearmanrankcorrelationsignificance(double r,
     int n) {
         VALUE ary;
         double bt,lt,rt;
         spearmanrankcorrelationsignificance(r, n, bt, lt, rt);
         ary=rb_ary_new();
         rb_ary_push(ary, rb_float_new(bt));
         rb_ary_push(ary, rb_float_new(lt));
         rb_ary_push(ary, rb_float_new(rt));
         return ary;
     }
%}
